home *** CD-ROM | disk | FTP | other *** search
/ Time Warp / Time Warp.iso / pc / timewarp / lab.dxr / 00382.ls < prev    next >
Encoding:
Text File  |  1997-06-09  |  481 b   |  23 lines
  1. on exitFrame
  2.   global end, monitor
  3.   if monitor = 1 then
  4.     if the movieTime of sprite 15 < end then
  5.       go(the frame)
  6.     else
  7.       set the locV of sprite 15 to 1000
  8.       set the locH of sprite 15 to -1000
  9.       puppetTransition(3)
  10.       updateStage()
  11.       puppetSprite(15, 0)
  12.       set monitor to 0
  13.       if soundBusy(1) = 0 then
  14.         puppetSound("SHIP_INTR11.AIF")
  15.         updateStage()
  16.       end if
  17.       go(the frame)
  18.     end if
  19.   else
  20.     go(the frame)
  21.   end if
  22. end
  23.